home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 98 / 098.d81 / search 98 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  175 lines
  1. 1 dv=peek(186):ifdv<8thendv=8
  2. 2 poke53281,0:poke53280,0:print"[147]"
  3. 3 gosub60000:fort=1to1000:next
  4. 4 sys57812"ssx 98",dv,0:poke780,0:poke781,16:poke782,205:sys65493
  5. 6 dim m$(9),r$(4):f=0:ff=0:s=54272:gosub9900
  6. 7 sp$="          "
  7. 10 fori=1to5:readm$(i):next
  8. 11 data "[208]rint [208]uzzle          "
  9. 13 data "[208]rint [211]olution        "
  10. 15 data "[210]ead [201]t               "
  11. 16 data "[195]redits               "
  12. 17 data "[204]oadstar              "
  13. 20 tp$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  14. 22 md$="[221][155]                                      [146][221]"
  15. 23 ln$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  16. 24 bt$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  17. 25 goto30
  18. 26 print"[147]"tp$;
  19. 27 fori=1to23:printmd$;:next:printbt$:poke2023,125:poke56295,1
  20. 28 fori=217to242:pokei,peek(i)or128:next:return
  21. 30 gosub26
  22. 32 print"[221][156]            [203]eyword [211]earch            [146][221]";
  23. 34 println$;
  24. 60 poke214,21:print
  25. 65 println$;
  26. 70 print"[221][154]   [213]se cursor keys/[210][197][212][213][210][206] to select   [146][221]";
  27. 80 gosub28
  28. 100 print"";
  29. 102 printtab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  30. 104 qq$="[221]                        [221]"
  31. 105 fori=1to7:print""qq$:next
  32. 106 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  33. 107 poke214,5:print
  34. 109 fori=1to6:printtab(9)""m$(i):next
  35. 145 sys52496,6
  36. 146 poke198,0
  37. 150 r=5:m=1:poke214,r:print:printtab(9)"[154]"m$(m):m1=m:r1=r
  38. 155 getk$:ifk$=""then155
  39. 160 ifk$=chr$(13)thengosub9930:goto200
  40. 165 ifk$="[145]"thenm=m-1:r=r-1:ifm<1thenm=5:r=9
  41. 170 ifk$=""thenm=m+1:r=r+1:ifm>5thenm=1:r=5
  42. 175 ifm<>m1thenpoke214,r1:print:printtab(9)""m$(m1):gosub9910
  43. 180 poke214,r:print:printtab(9)"[154]"m$(m)
  44. 182 m1=m:r1=r
  45. 185 goto155
  46. 190 :
  47. 200 onmgoto1000,2000,12000,500,11000
  48. 205 goto150
  49. 500 sys52496,7
  50. 525 poke214,15:print:printtab(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  51. 527 printtab(7)"[221]  [208]uzzle [194]y [194]. [211]chulak  [221]"
  52. 535 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  53. 544 t=1
  54. 545 getk$:ifk$<>""then550
  55. 546 t=t+1:ift<100then545
  56. 550 sys52499,7:gosub28:goto155
  57. 555 :
  58. 1000 gosub9000:ifppthen155
  59. 1005 gosub6000
  60. 1007 open4,4
  61. 1010 print#4,sp$;"z f l s r e n o q p o m y w w c":print#4
  62. 1020 print#4,sp$;"n g a r a h t r g i t n t t a o":print#4
  63. 1025 print#4,sp$;"s a t h o m e r m c f d i n k y":print#4
  64. 1030 print#4,sp$;"h u i o i n d e g a s a g e v v":print#4
  65. 1035 print#4,sp$;"l g r t r a u t s s t v q g w n":print#4
  66. 1036 print#4,sp$;"h i z u i o t d a s y i z r w p":print#4
  67. 1045 print#4,sp$;"m n t h l t c n e o q n s a x f":print#4
  68. 1055 print#4,sp$;"a y o g m l l a g a h c e s s y":print#4
  69. 1060 print#4,sp$;"o o u o t t e r o t n i t b e v":print#4
  70. 1065 print#4,sp$;"u o n g i n y b v b u q d l m v":print#4
  71. 1070 print#4,sp$;"f e h n n k e m r s d w g b a e":print#4
  72. 1071 print#4,sp$;"t s y a n r l e i u n r x s n c":print#4
  73. 1076 print#4,sp$;"d x z v n h p r f r e e m r e v":print#4
  74. 1077 print#4,sp$;"z e y i a t o y h c e g b c t h":print#4
  75. 1078 print#4,sp$;"c a n d s m c f o x l h e u r m":print#4
  76. 1079 print#4,sp$;"r i o n e r y n t d k j w l r z"
  77. 1080 print#4:print#4
  78. 1081 print#4,sp$;"word list":print#4
  79. 1082 print#4,sp$;"bernini    dahl       klee       renoir     van gogh"
  80. 1085 print#4,sp$;"bruegel    degas      manet      rubens     vermeer"
  81. 1100 print#4,sp$;"cezanne    dufy       matisse    sargent"
  82. 1110 print#4,sp$;"chagall    el greco   miro       stuart"
  83. 1115 print#4,sp$;"copley     gaugin     monet      tintoretto"
  84. 1120 print#4,sp$;"corot      goya       picasso    titian"
  85. 1125 print#4,sp$;"da vinci   homer      rembrandt  turner"
  86. 1500 print#4:close4:goto155
  87. 1505 :
  88. 2000 gosub9000:ifppthen155
  89. 2005 gosub6000
  90. 2007 open4,4
  91. 2010 print#4,sp$;". . . . . . . . . p . . . . . .":print#4
  92. 2020 print#4,sp$;"n g . . . . . r . i . . . t . .":print#4
  93. 2025 print#4,sp$;". a t h o m e r m c . d . n . .":print#4
  94. 2030 print#4,sp$;". u i o . n d e g a s a . e . .":print#4
  95. 2035 print#4,sp$;". g r t r a u t s s t v . g . .":print#4
  96. 2036 print#4,sp$;". i . u i o . d . s . i . r . .":print#4
  97. 2045 print#4,sp$;"m n t h . t c n . o . n s a . .":print#4
  98. 2055 print#4,sp$;"a y o g m l l a g a h c . s . .":print#4
  99. 2060 print#4,sp$;". . . o t t e r o t n i t . e .":print#4
  100. 2065 print#4,sp$;". . n g . n y b . . . . . l m .":print#4
  101. 2070 print#4,sp$;". e . n n . e m r s d . g . a .":print#4
  102. 2071 print#4,sp$;"t . . a . r l e . u n r . . n .":print#4
  103. 2076 print#4,sp$;". . z v n h p r f r e e m r e v":print#4
  104. 2078 print#4,sp$;". e . i a . o y . c e g b . t .":print#4
  105. 2080 print#4,sp$;"c . n d . . c . o . l . e u . .":print#4
  106. 2090 print#4,sp$;"r i o n e r . . . . k . . l r ."
  107. 2500 print#4:close4:goto155
  108. 2505 :
  109. 6000 open4,4
  110. 6005 print#4, "          #98 - keyword search"
  111. 6006 print#4
  112. 6010 print#4:close4:return
  113. 9000 sys52496,7:pp=1
  114. 9005 poke214,15:print:printtab(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  115. 9010 printtab(7)"[221]  [208]rinter [210]eady? [y/n]  [221]"
  116. 9025 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  117. 9035 getk$:ifk$=""then9035
  118. 9036 ifk$="y"thenpp=0
  119. 9040 sys52499,7:gosub28:return
  120. 9045 :
  121. 9800 poke214,21:print:println$;
  122. 9805 print"[221][154]             [208]ress [210][197][212][213][210][206]             [146][221]";
  123. 9810 getk$:ifk$<>chr$(13)then9810
  124. 9815 return
  125. 9820 :
  126. 9900 fori=0to24:pokes+i,.:next:return
  127. 9910 pokes+24,15:pokes+5,9:pokes+6,0
  128. 9915 pokes+1,19:pokes,63:pokes+4,17
  129. 9920 fort=1to50:next:pokes+4,16:return
  130. 9930 pokes+24,15:pokes+5,9:pokes+6,0
  131. 9935 pokes+1,48:pokes,0:pokes+4,17
  132. 9940 fort=1to50:next:pokes+4,16:return
  133. 10000 open15,8,15,"s0:search 98":close15:save"0:search 98",8:end
  134. 11000 poke214,15:print
  135. 11005 printtab(7)"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  136. 11015 printtab(7)"[221]  [193]re you sure?  [y/n]  [221]"
  137. 11025 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  138. 11030 getk$:ifk$=""then11030
  139. 11035 ifk$<>"y"thensys52499,6:goto150
  140. 11037 print"[147]":poke53272,23
  141. 11040 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  142. 11050 ifer%<>63thenprint"[147]":end
  143. 11055 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  144. 11060 print"run"
  145. 11065 poke631,13:poke632,13:poke198,2:end
  146. 12000 sys52496,7
  147. 12001 gosub26
  148. 12005 print"[221][156]            [203]eyword [211]earch            [146][221]";
  149. 12010 println$;
  150. 12015 print"[155]   [212]he object of [203]eyword [211]earch is
  151. 12020 [153]"list to find and circle all of the
  152. 12025 print"[155] words in the grid that are listed
  153. 12030 [153]"list below.  (NULL)he words will run in the
  154. 12065 print"[155] horizontal, vertical and diagonal
  155. 12070 [153]"list directions as well as forwards and
  156. 12075 print"[155] backwards.
  157. 12080 [153]"list   (NULL)he solution printout will show
  158. 12085 print"[155] only where the key letters are but
  159. 12086 [153]"list the words will not be circled.
  160. 12088 print"[155]   [212]he theme of this month's puzzle
  161. 12090 [153]"list is (NULL)atnright$(NULL)(NULL)val(NULL)(NULL).
  162. 12100 gosub9800
  163. 12105 sys52499,7:gosub28:goto155
  164. 60000 print"[147]":z$=